home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
orgpims_
/
haca039.zip
/
_SETUP.1
/
HaCa.exe
/
0
/
RCDATA
/
TFRMOPTIONS
/
TFRMOPTIONS.txt
Wrap
Text File
|
1996-12-27
|
15KB
|
552 lines
object frmOptions: TfrmOptions
Left = 256
Top = 355
BorderIcons = []
BorderStyle = bsDialog
Caption = ' Properties'
ClientHeight = 359
ClientWidth = 427
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 324
Width = 427
Height = 35
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object btnOK: TButton
Left = 6
Top = 6
Width = 75
Height = 25
Caption = '&OK'
Default = True
TabOrder = 0
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 90
Top = 6
Width = 75
Height = 25
Caption = '&Cancel'
TabOrder = 1
OnClick = btnCancelClick
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 427
Height = 8
Align = alTop
BevelOuter = bvNone
TabOrder = 1
end
object Panel3: TPanel
Left = 0
Top = 8
Width = 5
Height = 316
Align = alLeft
BevelOuter = bvNone
TabOrder = 2
end
object Panel4: TPanel
Left = 422
Top = 8
Width = 5
Height = 316
Align = alRight
BevelOuter = bvNone
TabOrder = 3
end
object PageControl1: TPageControl
Left = 5
Top = 8
Width = 417
Height = 316
ActivePage = tabHolidays
Align = alClient
TabOrder = 4
object tabHolidays: TTabSheet
Caption = '&Holidays'
object labCalHolidays: TLabel
Left = 207
Top = 15
Width = 192
Height = 13
Alignment = taCenter
AutoSize = False
end
object btnAddCalHolidays: TSpeedButton
Left = 175
Top = 80
Width = 25
Height = 25
Hint = 'Add specific date to the holidays list.'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
OnClick = btnAddCalHolidaysClick
end
object Bevel1: TBevel
Left = 170
Top = 180
Width = 240
Height = 9
Shape = bsBottomLine
end
object btnAddWeekDayHolidays: TSpeedButton
Left = 175
Top = 200
Width = 25
Height = 25
Hint = 'Add a week day to the holiday list.'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
OnClick = btnAddWeekDayHolidaysClick
end
object Bevel2: TBevel
Left = 170
Top = 230
Width = 240
Height = 9
Shape = bsBottomLine
end
object btnDelHolidays: TSpeedButton
Left = 175
Top = 250
Width = 25
Height = 25
Hint = 'Remove selected item from the holidays list.'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
OnClick = btnDelHolidaysClick
end
object calHolidays: TCalendar
Left = 206
Top = 30
Width = 192
Height = 108
StartOfWeek = 0
TabOrder = 0
end
object updCalHolidays: TUpDown
Left = 206
Top = 140
Width = 192
Height = 16
Min = 0
Orientation = udHorizontal
Position = 0
TabOrder = 1
Wrap = False
OnClick = updCalHolidaysClick
end
object chkRecursiveHolidays: TCheckBox
Left = 208
Top = 163
Width = 79
Height = 17
Hint =
'Use this check if you want add a recursive'#13'holiday to the list, ' +
'like Christmas.'
Caption = 'Recursive'
State = cbChecked
TabOrder = 2
end
object cmbWeekDayHolidays: TComboBox
Left = 214
Top = 202
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 3
end
object lsvHolidays: TListView
Left = 6
Top = 6
Width = 161
Height = 276
Columns = <
item
Caption = 'Holidays'
Width = 6
WidthType = (
-1)
end>
ReadOnly = False
ShowColumnHeaders = False
TabOrder = 4
ViewStyle = vsReport
end
end
object tabColors: TTabSheet
Caption = '&Colors'
object btnChangeColor: TButton
Left = 265
Top = 20
Width = 90
Height = 25
Caption = '&Change Color'
TabOrder = 0
OnClick = btnChangeColorClick
end
object lsvColor: TListView
Left = 6
Top = 6
Width = 125
Height = 272
OnDblClick = lsvColorDblClick
Columns = <
item
Caption = 'Option'
Width = 0
WidthType = (
-1)
end>
ReadOnly = True
OnChange = lsvColorChange
ShowColumnHeaders = False
TabOrder = 1
ViewStyle = vsReport
end
object Panel5: TPanel
Left = 182
Top = 20
Width = 50
Height = 50
BevelOuter = bvLowered
TabOrder = 2
object imgColor: TImage
Left = 1
Top = 1
Width = 48
Height = 48
Align = alClient
end
end
object btnDefaultColor: TButton
Left = 265
Top = 45
Width = 90
Height = 25
Caption = '&Restore Default'
TabOrder = 3
OnClick = btnDefaultColorClick
end
object GroupBox1: TGroupBox
Left = 156
Top = 86
Width = 227
Height = 185
Caption = ' Explanation '
TabOrder = 4
object lblSpiegaColore: TLabel
Left = 15
Top = 18
Width = 198
Height = 152
AutoSize = False
end
end
end
object tabViewOptions: TTabSheet
Caption = '&Layout '
object GroupBox2: TGroupBox
Left = 6
Top = 6
Width = 140
Height = 167
Caption = ' Month View '
TabOrder = 0
object Label1: TLabel
Left = 12
Top = 45
Width = 83
Height = 13
Caption = 'Time Bar Range :'
end
object chkShowBar: TCheckBox
Left = 12
Top = 20
Width = 108
Height = 17
Caption = 'Show Time Bar'
TabOrder = 0
end
object edtBarRangeFrom: TEdit
Left = 40
Top = 64
Width = 25
Height = 21
TabOrder = 1
Text = '8'
end
object updBarRangeFrom: TUpDown
Left = 65
Top = 64
Width = 15
Height = 21
Associate = edtBarRangeFrom
Min = 0
Max = 23
Position = 8
TabOrder = 2
Wrap = False
end
object edtBarRangeTo: TEdit
Left = 83
Top = 65
Width = 25
Height = 21
TabOrder = 3
Text = '19'
end
object updBarRangeTo: TUpDown
Left = 108
Top = 65
Width = 15
Height = 21
Associate = edtBarRangeTo
Min = 0
Max = 23
Position = 19
TabOrder = 4
Wrap = False
end
object chkShowMoon: TCheckBox
Left = 12
Top = 100
Width = 122
Height = 17
Caption = 'Show Moon Phases'
TabOrder = 5
end
object chkShowDailyMemo: TCheckBox
Left = 12
Top = 120
Width = 115
Height = 17
Caption = 'Show Daily Memo'
TabOrder = 6
end
object chkShowIcon: TCheckBox
Left = 12
Top = 140
Width = 97
Height = 17
Caption = 'Show Icon'
TabOrder = 7
end
end
object GroupBox4: TGroupBox
Left = 6
Top = 180
Width = 140
Height = 99
Caption = ' Wall Calendar '
TabOrder = 1
object chkAutoHide: TCheckBox
Left = 12
Top = 20
Width = 82
Height = 17
Caption = 'Auto Hide'
TabOrder = 0
OnClick = chkAutoHideClick
end
object edtHideSec: TMaskEdit
Left = 100
Top = 17
Width = 26
Height = 21
EditMask = '90;0; '
MaxLength = 2
TabOrder = 1
end
end
end
object tabAlarm: TTabSheet
Caption = '&Sound'
object GroupBox3: TGroupBox
Left = 6
Top = 6
Width = 246
Height = 181
Caption = ' Alarm '
TabOrder = 0
object btnGetSoundFile: TSpeedButton
Left = 207
Top = 100
Width = 22
Height = 22
Enabled = False
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
OnClick = btnGetSoundFileClick
end
object radUseSpeaker: TRadioButton
Tag = 2
Left = 12
Top = 40
Width = 113
Height = 17
Caption = 'Use Speaker Beep'
TabOrder = 0
OnClick = radUseWaveSoundClick
end
object radUseStandardSound: TRadioButton
Tag = 3
Left = 12
Top = 60
Width = 126
Height = 17
Caption = 'Use Standard Sound'
Checked = True
TabOrder = 1
TabStop = True
OnClick = radUseWaveSoundClick
end
object radUseWaveSound: TRadioButton
Tag = 4
Left = 12
Top = 80
Width = 141
Height = 17
Caption = 'Use Specific Wave File'
TabOrder = 2
OnClick = radUseWaveSoundClick
end
object edtSoundFile: TEdit
Left = 30
Top = 100
Width = 175
Height = 21
Enabled = False
TabOrder = 3
end
object radNoSound: TRadioButton
Tag = 1
Left = 12
Top = 20
Width = 82
Height = 17
Caption = 'No Sound'
TabOrder = 4
OnClick = radUseWaveSoundClick
end
object chkPopUpMessage: TCheckBox
Left = 12
Top = 130
Width = 121
Height = 17
Caption = 'Pop Up Message'
TabOrder = 5
end
object chkRepeatSound: TCheckBox
Left = 12
Top = 150
Width = 97
Height = 17
Caption = 'Repeat Sound'
TabOrder = 6
OnClick = chkRepeatSoundClick
end
object edtRepeatSound: TEdit
Left = 117
Top = 147
Width = 38
Height = 21
Enabled = False
TabOrder = 7
Text = '1'
end
object updRepeatSound: TUpDown
Left = 155
Top = 147
Width = 15
Height = 21
Associate = edtRepeatSound
Enabled = False
Min = 1
Position = 1
TabOrder = 8
Wrap = False
end
end
end
end
object dlgColor: TColorDialog
Ctl3D = True
Options = [cdFullOpen]
Left = 390
Top = 65534
end
object dlgOpen: TOpenDialog
DefaultExt = 'wav'
FileEditStyle = fsEdit
Filter = 'Sound File|*.wav'
Title = 'Choose Sound File'
Left = 358
end
end